www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_chk_copy_a_model_shili.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="modelsys_inc/D_model_class.asp"-->

<%
AJAXshowLoader()

%>

<%

if qx_if_max=0 then


response.redirect "../D_suodinguser.asp"
end if
%>


<%



set filea=new Cls_FSO




xmname=trim(request("xmname"))



b_err=0






if xmname="" then

%>
<script language=javascript>
alert("项目实例名称 不能为空");

history.go(-1);


</script>

<%
response.end

b_err=1

end if





if b_err=0 then



set rs11=server.CreateObject("adodb.recordset")
       
rs11.open "select * from ND_models_reg where id="&request("modelid"),conn,1,1

mdname=rs11("model_name")


folder_pathe=rs11("model_folder_path_name")

set rs11s=server.CreateObject("adodb.recordset")
       
rs11s.open "select * from ND_models_reg where model_folder_path_name='"&folder_pathe&"' and is_copy='0'",conn,1,1


fid=rs11s("id")



for aaai1=1 to 99999

set rs112=server.CreateObject("adodb.recordset")
       
rs112.open "select * from ND_models_reg where model_folder_path_name='"&folder_pathe&"' and all_biao_rnd_qianzhui='"&"ND_U_"&cstr(fid)&"_"&cstr(aaai1)&"_"&"'",conn,1,1

if rs112.eof then
gettt1="ND_U_"&cstr(fid)&"_"&cstr(aaai1)&"_"
exit for
end if

next




errtt=0


set rs1121=server.CreateObject("adodb.recordset")
       
rs1121.open "select * from ND_models_reg where model_folder_path_name='"&folder_pathe&"' and houtai_menu_shili_name='"&trim(xmname)&"'",conn,1,1

if not rs1121.eof then
errtt=1
%>


<script language=javascript>

alert("此实例名称已存在，请换一个实例名称!");
history.go(-1);


</script>


<%

end if




if errtt=0 then

set rs1=server.CreateObject("adodb.recordset")
       
rs1.open "select * from ND_models_reg",conn,1,3

rs1.addnew

rs1("model_name")=mdname

rs1("houtai_menu_shili_name")=trim(xmname)
rs1("model_folder_path_name")=folder_pathe

rs1("is_added_to_adminmenu")="1"

rs1("all_biao_rnd_qianzhui")=gettt1
rs1("is_copy")="1"

rs1.update

rs1.close
set rs1=nothing



%>


<script language=javascript>

alert("添加模型实例成功!");

self.location="D_admin_models.asp";


</script>


<%
end if


end if

%>

<%
AJAXcloseLoader()
%>